home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)sj.d64 / maestro (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  59 lines

  1. 10 IFL$="ARIA"THEN1000
  2. 20 IFM$="MODULE ONE"THEN1100
  3. 30 IFN$="MODULE TWO"THEN2000
  4. 40 IFO$="MODULE THREE"THEN3000
  5. 50 IFP$="MODULE FOUR"THEN4000
  6. 60 IFQ$="MODULE FIVE"THEN5000
  7. 70 IFR$="ARIA TWO"THEN5500
  8. 110 POKE657,128:POKE56,38:POKE52,38:PRINTCHR$(14):POKE53280,11:POKE53281,0:GOSUB20000:PRINT"[147]";A$:PRINT"   [151][212]HIS DISK IS DEFAULTED TO PLAY THE":PRINT"[199]OLDBERG [214]ARIATIONS FROM START TO FINISH":PRINT"[217]OU MAY CHOOSE TO PLAY SHORTER SECTIONS,":PRINT"    OR SKIP AROUND FROM SELECTION TO
  9. 550 [153]"    SELECTION WITHIN THE ENTIRE WORK.":[153]"";A$:[153]"     POKE(null)(null)VAL(null)(null)CLOSE(null)(null)ATNLENVAL (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VALWAIT":[153]"";A$:[146]197,32
  10. 600 [156]:[129]L[178]54272[164]54295:[151]L,0:[130]
  11. 605 [141]20000:[153]"LOAD";A$:[153]"ON         LEFT$VAL(null)VAL ATN(null)VAL (null)(null)(null)(null) (null)(null)(null)RIGHT$(null)(null)(null)WAIT":[153]A$:[153]"  1 - ATNRIA TO (null)ARIATION 7":[153]"   2 - (null)ARIATION 8 TO (null)ARIATION 13":[153]"CLR    3 - (null)ARIATION 14 TO (null)ARIATION 20":[153]"     4 - (null)ARIATION 21 TO (null)ARIATION 25
  12. 680 PRINT"[154]      5 - [214]ARIATION 26 TO [214]ARIATION 30":PRINT"       6 - [197][206][196] [208][210][207][199][210][193][205]":PRINT""A$:PRINT"[208][210][197][211][211] [193] [206][213][205][194][197][210]":PRINT""A$
  13. 705 GETX$:IFX$="1"THEN1000
  14. 720 IFX$="2"THEN2000
  15. 730 IFX$="3"THEN3000
  16. 740 IFX$="4"THEN4000
  17. 750 IFX$="5"THEN5000
  18. 760 IFX$="6"THEN6000
  19. 770 IFVAL(X$)<1ORVAL(X$)>5THENGOTO705
  20. 1000 IFA=0THENA=1:L$="ARIA":LOAD"ARIA",8,1
  21. 1010 SYS10000:S=10924:PRINT"[147]"A$:PRINT"   [149][217]OU ARE NOW LISTENING TO THE [193]RIA.":PRINT" [201]TS BASS LINE FORMS THE FOUNDATION FOR":PRINT"     ALL THE SUBSEQUENT VARIATIONS.":PRINT"";A$:GOSUB10000:L$="
  22. 1100 [139]B[178]0[167]B[178]1:M$[178]"MODULE ONE":[147]"MODULE ONE",8,1
  23. 1110 [158]10000:S[178]10924:[153]"LOAD";A$:[153]"  VERIFY(null)HE FIRST (null)ARIATION IS IN TWO PARTS,":[153]"   WITH BOTH HANDS FREELY EXCHANGING":[153]"MATERIAL, CONSISTING OF SCALE PASSAGES,":[153]"    ARPEGGIOS AND WIDE LEAPS OF MORE":[153]"           THAN AN OCTAVE.":[153]"";A$:[141]10000
  24. 1200 [158]14916:S[178]15840:[153]"LOAD";A$:[153]" VERIFY(null)ARIATION TWO IS IN THREE PARTS AND":[153]"  ALTHOUGH CANONIC IN FORM, IS NOT":[153]"          A STRICT CANON.":[153]"";A$:[141]10000:[158]19000:S[178]19924:[153]"LOAD";A$:[153]"  VERIFY(null)ARIATION THREE IS THE FIRST CANON.
  25. 1320 PRINT"  [212]HE VOICES ENTER TWELVE BEATS APART,":PRINT"             IN UNISON.":PRINT"";A$:GOSUB10000:SYS23404:S=24328:PRINT"[147]";A$:PRINT"   [149][214]ARIATION FOUR IS A LIVELY DANCE":PRINT"         PIECE IN FOUR PARTS.":PRINT"";A$:GOSUB10000:SYS27488:S=28412:PRINT"[147]";A$
  26. 1510 PRINT"  [149][214]ARIATION FIVE CONTAINS CROSSING OF":PRINT" OF HANDS, OVERLAPPING PARTS, AND LEAPS":PRINT"    WHICH MAKE IT VERY DIFFICULT TO":PRINT"         PERFORM ON THE PIANO.":PRINT"";A$:GOSUB10000:SYS32852:S=33776:PRINT"[147]";A$:PRINT"[149][214]ARIATION SIX IS A CANON AT THE SECOND.
  27. 1620 [153]"    (null)ARIATION SEVEN IS A GRACEFULLY":[153]"      ORNAMENTED (null)ICILIANO DANCE.":[153]"";A$:[141]10000:M$[178]"
  28. 2000 IFC=0THENC=1:N$="MODULE TWO":LOAD"MODULE TWO",8,1
  29. 2010 SYS10000:S=10924:PRINT"[147]";A$:PRINT"   [149][214]ARIATION EIGHT IS ANOTHER EXAMPLE":PRINT"     OF CROSSING OF HANDS AND GREAT":PRINT"             VIRTUOSITY.":PRINT"";A$:GOSUB10000:SYS15108:S=16032:PRINT"[147]";A$:PRINT"   [149][214]ARIATION NINE, THE THIRD CANON IN
  30. 2120 [153]"   THE SERIES EXHIBITS SOME BEAUTIFUL":[153]"   AND UNUSUAL HARMONIES; ON THE WHOLE":[153]"          A VERY ORIGINAL PIECE.":[153]"";A$:[141]10000:[158]19128:S[178]20052:[153]"LOAD";A$:[153]"   VERIFY(null)ARIATION TEN IS A MINIATURE FUGUE":[153]"    OR FUGHETTA, FEATURING SOME VERY
  31. 2230 PRINT"       CONCENTRATED COUNTERPOINT.":PRINT"";A$:GOSUB10000:SYS24108:S=25032:PRINT"[147]";A$:PRINT"  [149][214]ARIATION ELEVEN CONTAINS EXTENDED":PRINT"RUNS OF TRIPLETS, AND SOME LONG TRILLS.":PRINT"";A$:GOSUB10000:SYS29408:S=30332:PRINT"[147]";A$:PRINT"   [149][214]ARIATION TWELVE IS A CANON AT THE
  32. 2420 [153]"       FOURTH IN CONTRARY MOTION.":[153]"   (null)ARIATION THIRTEEN IS A BEAUTIFUL":[153]"    AIR WITH TWO-PART ACCOMPANIMENT":[153]"";A$:[141]10000:N$[178]"
  33. 3000 IFD=0THEND=1:O$="MODULE THREE":LOAD"MODULE THREE",8,1
  34. 3010 SYS10000:S=10924:PRINT"[147]";A$:PRINT"   [149][214]ARIATION FOURTEEN IS A GLITTERING":PRINT"     PIECE SHOWING GREAT VIRTUOSITY.":PRINT"";A$:GOSUB10000:SYS15940:S=16864:PRINT"[147]";A$:PRINT" [149][214]ARIATION FIFTEEN SWITCHES TO [199] MINOR,":PRINT"  FOR A VERY SOMBER CANON AT THE FIFTH
  35. 3130 [153]"          IN CONTRARY MOTION.":[153]"";A$:[141]10000:[158]20856:S[178]21780:[153]"LOAD";A$:[153]" VERIFY(null)ARIATION SIXTEEN IS THE CENTER OF THE":[153]"   OF THE WORK, A HEAVILY ORNAMENTED":[153]"ASCRENCH OVERTURE, WITH DOTTED RHYTHMS IN":[153]"THE FIRST HALF AND A FUGAL SECOND HALF.
  36. 3250 PRINT"";A$:GOSUB10000:SYS27244:S=28168:PRINT"[147]";A$:PRINT" [149][214]ARIATION SEVENTEEN IS A VERY STRANGE":PRINT"PIECE.  [212]HERE'S NOTHING MUCH LIKE IT IN":PRINT"       [197]IGHTEENTH [195]ENTURY MUSIC.":PRINT"";A$:GOSUB10000:SYS32928:S=33852:PRINT"[147]";A$:PRINT"   [149][145][214]ARIATIONS 18, 19, AND 20 ARE HERE
  37. 3420 [153]"   COMBINED WITH LITTLE INTERRUPTION.":[153]"VALIGHTEEN IS A CANON AT THE SIXTH. (null)INE-":[153]"  TEEN IS A 3/8 TIME DANCE, AND NUMBER":[153]"  TWENTY IS ANOTHER OF THOSE DAZZLING":[153]" VIRTUOSO PIECES WHICH IS AN EXAMPLE OF":[153]"          SHEER BRILLIANCE.
  38. 3480 PRINT"";A$:GOSUB10000:O$="
  39. 4000 [139]E[178]0[167]E[178]1:P$[178]"MODULE FOUR":[147]"MODULE FOUR",8,1
  40. 4010 [158]10000:S[178]10924:[153]"LOAD";A$:[153]"   VERIFY(null)ARIATION TWENTY-ONE IS A CANON AT":[153]" AT THE SEVENTH.  (null)ARIATION TWENTY-TWO":[153]"   IS A FOUR-PART OLD STYLE RICECARE.":[153]"(null)ARIATION TWENTY-THREE HAS OPPOSING RUNS":[153]"  IN THIRDS AND SIMULTANEOUS ORNAMENTS
  41. 4070 PRINT"           IN BOTH HANDS.":PRINT"";A$:GOSUB10000:SYS17668:S=18592:PRINT"[147]";A$:PRINT"    [149][214]ARIATION TWENTY-FOUR IS A CANON":PRINT" AT THE OCTAVE.   [214]ARIATION TWENTY-FIVE":PRINT"IS A VERY FAMOUS PIECE FOR THE STRENGTH":PRINT"  OF ITS HARMONY AND EMOTIONAL IMPACT,
  42. 4150 [153]" SWITCHING TO CHR$ MINOR IN AN IMPASSIONED":[153]"              RECITATIVE.":[153]"";A$:[141]10000:P$[178]"
  43. 5000 IFF=0THENF=1:Q$="MODULE FIVE":LOAD"MODULE FIVE",8,1
  44. 5010 SYS10000:S=10924:PRINT"[147]";A$:PRINT"    [149][214]ARIATION TWENTY-SIX PROVIDES A":PRINT" WONDERFUL CONTRAST AFTER THE SOLEMNITY":PRINT"         OF ITS PREDECESSOR.":PRINT"[206]UMBER TWENTY-SEVEN IS THE FINAL CANON,":PRINT"  THIS TIME AT THE NINTH, AND ALONE IN
  45. 5070 [153]"      HAVING NO SUPPORTING BASS LINE.":[153]"";A$:[141]10000:[158]17412:S[178]18336:[153]"LOAD";A$:[153]"    VERIFYON(null)ARIATION TWENTY-EIGHT IS A VERY":[153]"ADVANCED PIECE FOR ITS TIME.  (null)ARIATION":[153]" TWENTY-NINE IS NOTABLE FOR ITS TRIPLE":[153]"      TRILLS AND ITS SCALE PASSAGES.
  46. 5150 PRINT" [201]NSTEAD OF THE EXPECTED CANON, WE FIND":PRINT"     SOME OLD [199]ERMAN FOLK SONGS FOR":PRINT"          [214]ARIATION THIRTY.":PRINT"";A$:GOSUB10000:Q$="
  47. 5500 [153]"LOAD":[139]G[178]0[167]G[178]1:R$[178]"ARIA TWO":[147]"ARIA",8,1
  48. 5505 [158]10000:S[178]10924:[153]"LOAD";A$:[153]"    VERIFY(null)HE CHR$OLDBERG (null)ARIATIONS END WITH":[153]"   A RESTATEMENT OF THE OPENING ARIA.":[153]"";A$;"VERIFY":[128]
  49. 6000 [153]"LOADATN(null)VAL (null)(null)(null) (null)(null)(null)VAL? - (null) OR (null)""
  50. 6010 GETW$:IFW$="Y"THENSYS64738
  51. 6030 IFW$="N"THENCLR:GOTO605
  52. 6040 GOTO6010
  53. 10000 PRINT"     [151][208][210][197][211][211] ([193]) [212][207] [199][207] [212][207] [206][197][216][212] [208][201][197][195][197]":PRINT"      [208][210][197][211][211] ([194]) [212][207] [210][197][212][213][210][206] [212][207] [205][197][206][213]":PRINT"";A$
  54. 10040 GETW$:IFNOTPEEK(789)=234ANDNOTW$="A"ANDNOTW$="B"THEN10040
  55. 10045 PRINT"[147]":IFPEEK(789)=234THENX=1:FORA=1TO1500:NEXT:RETURN
  56. 10050 IFW$="A"THENPOKES,4:FORZ=54272TO54295:POKEZ,0:NEXT:FORA=1TO1500:NEXT:RETURN
  57. 10060 IFW$="B"THENPOKES,4:FORZ=54272TO54295:POKEZ,0:NEXT:FORA=1TO1500:NEXT:RUN600
  58. 20000 A$="- - - - - - - - - - - - - - - - - - - - ":RETURN
  59.